`is.snp` <-
function(x)
{
 inherits(x, "snp")
}

